
       org $800
; sum of two value,  alpha + beta -> gamma

; pass by address
main    move.l #$1000,a7




        move.l #alpha,a0
        move.l #beta,a1
        move.l #gamma,a2
        jsr   adder



finish  nop


; subroutine adder of byte size
; address of operands are in a0,a1
; address of result is in a2
adder    movem.l  d0/d1,-(a7)
         move.b   (a0),d0
         move.b   (a1),d1
         add.b     d0,d1
         move.b    d1,(a2)
         movem.l  (a7)+,d0/d1
         rts


          org $b00

alpha     ds.b 1
beta      ds.b 1
gamma     ds.b 1




